home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / RogerdatTools / Rconcat.p < prev    next >
Text File  |  1994-01-12  |  755b  |  43 lines
  1. PROGRAM Rconcat;  { 30.11.93 by System M    Røgersøft}
  2.  
  3. FROM Rogertools USES rrequest;
  4.  
  5. VAR f1,f2:TEXT;
  6.     datei,pfad:STRING;
  7.     s,dat1,dat2:STRING[80];
  8.  
  9. BEGIN
  10.  pfad:=':';
  11.  datei:='';
  12.  IF (foundarp OR foundasl) THEN rrequest('Datei 1:',datei,pfad)
  13.  ELSE exit;
  14.  dat1:=pfad+datei;
  15.  reset(f1,dat1);
  16.  IF IORESULT <> 0 THEN exit;
  17.  datei:='';
  18.  rrequest('Datei 2:',datei,pfad);
  19.  dat2:=pfad+datei;
  20.  reset(f2,dat2);
  21.  close(f1);
  22.  IF IORESULT <> 0 THEN exit;
  23.  reset(f1,dat1);         { nach Onkel Wirth geht das glaub ich normalement
  24.                            nischt ! }
  25.  seek(f1,Filesize(f1));
  26.  readln(f2,s);
  27.  readln(f2,s);
  28.  readln(f2,s);
  29.  readln(f2,s);
  30.  WHILE NOT eof(f2) DO
  31.   BEGIN
  32.   readln(f2,s);
  33.   writeln(f1,s);
  34.   END;
  35.   close(f1);
  36.   close(f2);
  37.  END.
  38.  
  39.  
  40.  
  41.  
  42.  
  43.